home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tex / tools / astro / astrosym / astrosym.com < prev    next >
Encoding:
Text File  |  1994-09-22  |  5.0 KB  |  118 lines
  1. % ASTROSYM.COM : AstroSym (Version 1.00, May 1, 1992) - file 4 of 7
  2. % Peter Schmitt                     eMail: a8131dal@awiuni11.bitnet
  3. % Institute of Mathematics, University of Vienna    Vienna, Austria
  4. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5.  
  6. beginchar(O+2,52u#,80u#,0u#); "Venus";
  7.    corners; centers;
  8.    VV:=(TC-TL) rotated -90;
  9.    CL:=TL+VV; CR:=TR+VV; bC:=TC+2VV;
  10.     PEN; draw TC..CR..bC..CL..TC..cycle;                   % top circle
  11.    SPEN; cross (bC,BC, 4/3,-2P);                           % bottom cross
  12.    endchar;
  13.  
  14. beginchar(O+3,52u#,80u#,0u#); "Terra";
  15.    corners; centers;
  16.    VV:=(BC-BL) rotated 90;
  17.    CL:=BL+VV; CR:=BR+VV; tC:=BC+2VV;
  18.     PEN; draw tC..CR..BC..CL..tC..cycle;                   % bottom circle
  19.    SPEN; cross (tC,TC, 1,2P);                              % top cross
  20.    endchar;
  21.  
  22. beginchar(O+4,52u#,88u#,0u#); "Mars";
  23.    corners; centers;
  24.    VV:=(BC-BL) rotated 90;
  25.    CL:=BL+VV; CR:=BR+VV; tC:=BC+2VV;
  26.    CC:=BC+VV;
  27.    Cr:=(tC+2vP) rotatedaround (CC,-15);             % temporary
  28.    TR:=TR+vd+hd;                                    % top arrow: top
  29.    tr:=.45[Cr,TR];                                   % top arrow: base
  30.    Cr:=Cr-(2hP rotated angle(TR-Cr));               % top arrow: stem base
  31.    a:=angle(TR-tr); b:=cosd(a)/sind(a);             % arrow: calculate breadth
  32.    PEN; draw tC..CR..BC..CL..tC..cycle;             % bottom circle
  33.    PEN; draw Cr--tr;                                % top arrow: stem
  34.    Pen; arrow (tr,TR, 2b, .1,.5);                   % top arrow
  35.    endchar;
  36.  
  37. beginchar(O+7,52u#,74u#,10u#); "Uranus";
  38.    corners; centers;
  39.    VV:=(BC-BL) rotated 90;
  40.    bL:=BL+VV; bR:=BR+VV; CC:=BC+2VV;
  41.    bC:=BC+VV;
  42.    TC:=TC+vd; tC:=.4[CC,TC];
  43.    PEN; draw CC..bR..BC..bL..CC..cycle;                   % bottom circle
  44.      fill fullcircle scaled 2P shifted bC;                % bottom circle: dot
  45.      draw CC--tC;                                         % top arrow: stem
  46.    Pen; arrow (tC,TC, 1.2, .1,.5);                        % top arrow
  47.    endchar;
  48.  
  49. beginchar(O+8,88u#,80u#,0u#); "Neptunus";
  50.    Corners(p,p,P,p); Centers(.5,.2);
  51.    HOR (9/88,79/88);
  52.    Top(.725); Bot(.2);
  53.    b:=length(Tl-TL)/length(Tl-tl);                 % arrows: breadth of points
  54.    SPEN; draw bl--br;                              % horizontal bar
  55.          draw bC--BC;                              % vertical stem
  56.          draw bl--tl; draw bC--tC; draw br--tr;    % three arrows: arms
  57.    Pen; arrow (tl,Tl, 2b, .2,.5);                  % three arrows: points
  58.         arrow (tC,TC, 2b, .2,.5);
  59.         arrow (tr,Tr, 2b, .2,.5);
  60.    endchar;
  61.  
  62. beginchar(O+9,52u#,80u#,0u#); "Pluto";
  63.    corners; centers;
  64.    VV:=(TC-TL) rotated -90;
  65.    bC:=TC+2VV; bL:=TL+2VV;
  66.    BOT (0,2/3);                                  % Br : bottom bar (right end)
  67.     PEN; draw TL--TC{right}..{left}bC--bL;       % top right arc
  68.    SPEN; draw BL--TL; draw BL--Br;               % left bar and bottom bar
  69.    endchar;
  70.  
  71. beginchar(O+21,76u#,58u#,-6u#); "Aquarius";
  72.    Corners(P,P,(h+d)/2+P,P);
  73.                                                 % upper strokes:
  74.    centers;                                    % CL and CR : left and right end
  75.    BOT (3/12,11/12); BC:=.5[Bl,Br];             % Bl,BC,Br : upper endpoints
  76.    TOP (1/12,9/12); TC:=.5[Tl,Tr];              % Tl,TC,Tr : lower endpoints
  77. %  PEN yscaled (p/P) rotated (90-angle(Tl-CL));
  78.    PEN yscaled (p/P) rotated angle(Tl-CL);
  79.    draw CL--Tl--Bl--TC--BC--Tr--Br--CR;
  80.    picture upper; upper:= currentpicture;                     % lower strokes
  81.    addto currentpicture also upper shifted (0,-(h+d)/2);
  82.    endchar;
  83.  
  84. beginchar(O+24,88u#,80u#,0u#); "Neptunus 2";
  85.    Corners(p,p,P,p); Centers(.5,.2);
  86.    HOR (9/88,79/88);
  87.    Top(.725); Bot(.2);
  88.    b:=length(Tl-TL)/length(Tl-tl);                 % arrows: breadth of points
  89.    SPEN; draw bC--tC;                              % middle arm
  90.    cross (BC,bC, 1, -P);                           % lower cross
  91.     PEN; draw tl{down}..{up}tr;                    % arc from left to right arm
  92.    Pen; arrow (tl,Tl, 2b, .2,.5);                  % three arrows: points
  93.         arrow (tC,TC, 2b, .2,.5);
  94.         arrow (tr,Tr, 2b, .2,.5);
  95.    endchar;
  96.  
  97. beginchar(O+25,68u#,80u#,0u#); "Pluto 2";
  98.    Corners(p,p,P,p); Centers(.5,.2);
  99.    HOR (2/17,15/17);
  100.    Top(.725); Bot(.2)
  101.    b:=length(Tl-TL)/length(Tl-tl);                 % arrows: breadth of points
  102.    SPEN; draw bl--br;                              % horizontal bar
  103.          draw bC--BC;                              % vertical stem
  104.          draw bl--tl; draw br--tr;                 % two arrows: arms
  105.    Pen; arrow (tl,Tl, 2b, .2,.5);                  % two arrows; points
  106.         arrow (tr,Tr, 2b, .2,.5);
  107.    endchar;
  108.  
  109. beginchar(O+26,1U#,1U#,0); "Libra 2";
  110.    corners; Centers (1/2,2/3-1/12);
  111.    LFT (1/3,1); RT (1/3,1);
  112.    PEN; draw CC{right}..TC..{right}CC;             % top circle
  113.    SPEN; draw bL--bR; draw CL--CR;                 % lower and upper bar
  114.    endchar;
  115.  
  116. %%%%%%%%%%%%%%%%%%%%%%%%%%%
  117. %%% end of ASTROSYM.COM %%%
  118.